10 M$="[157][157][157][165][191][167]":CD$="[158][207][163][208]"+M$+M$+"[157][157][157][204][164][186]"
20 DIM B$(9,4),C$(36,4),L$(37),A(36),D(36),P$(4),TR(10),H(10)
30 DIM N1(33),N2(33),S(20),T(20),G(30),W$(30),HS(30),LE(30),J(12),K(12)
40 GOSUB1790:NU=1:AL=1:LE=16
50 FORX=1TO8:READN3(X),N4(X),DR(X):NEXT
60 FORX=1TO36:READD(X):NEXT
70 FORX=1TO12:READJ(X),K(X):NEXT
80 PRINT"[147]":POKE53281,14:POKE646,1
90 PRINT"*** MEMORY CHALLENGE ***":PRINT
95 PRINT"PRESS 'Q' TO QUIT"
100 PRINT"HOW MANY PLAYERS? (1-4):";
105 GETA$:IF((A$<"1")OR(A$>"4"))AND(A$<>"Q")THEN105
106 PRINTA$:K=VAL(A$):IFA$="Q"THEN60000
110 IFK=1THEN140
120 IFK<2ORK>4THEN90
130 GOTO200
140 Z$(1)="":Z(1)=1:PRINT:PRINT"ENTER YOUR NAME:";:GOSUB60500:P$(1)=C$
150 PRINT
155 PRINT"TRY TO UNCOVER ALL OF THE MATCHES IN AS FEW TRIES AS POSSIBLE"
160 POKE214,20:PRINT:PRINT"     PRESS THE SPACE BAR TO BEGIN"
170 GETQ$:IFQ$=""THEN170
180 IFQ$<>CHR$(32)THEN170
190 GOTO275
200 PRINT:PRINT"NAME OF FIRST PLAYER:";:GOSUB60500:P$(1)=C$
210 Z$(1)="":Z(1)=1
220 PRINT:PRINT"NAME OF SECOND PLAYER:";:GOSUB60500:P$(2)=C$
230 Z$(2)="[159]":Z(2)=3:IFK=2THEN275
240 PRINT:PRINT"NAME OF THIRD PLAYER:";:GOSUB60500:P$(3)=C$
250 Z$(3)="":Z(3)=6:IFK=3THEN275
260 PRINT:PRINT"NAME OF FOURTH PLAYER:";:GOSUB60500:P$(4)=C$
270 Z$(4)="[158]":Z(4)=7
275 PL=1267:LO=1106:TL=0:TR=0
280 REM SHUFFLE CARDS
290 PRINT:PRINT" PLEASE WAIT WHILE I SHUFFLE THE CARDS."
300 A(1)=INT(RND(1)*36)+1
310 FORX=2TO36
320 A(X)=INT(RND(1)*36)+1
330 FORY=1TOX-1:IFA(X)=A(Y)THENY=1:GOTO320
340 NEXTY,X:PRINT"[147]";
350 REM LAY DOWN THE CARDS
380 FORX=1TO4:FORY=1TO9:PRINTCD$"[145][145][145]";
390 NEXTY:PRINT"";
400 NEXTX
410 PRINT"           PRESS 'Q' TO QUIT"
500 R$="":D$=""
510 L$(1)="":Z=2
520 FORX=1TO4
530 FORY=1TO8:L$(Z)=L$(Z-1)+R$:Z=Z+1:NEXTY
540 L$(Z)=L$(Z-9)+D$:Z=Z+1
550 NEXTX
560 FORX=1TO9:FORY=1TO4
570 C$(A(X),Y)=B$(X,Y):C$(A(X+18),Y)=B$(X,Y)
580 NEXTY,X
590 REM CARD DESIGNS 10-18
600 C$(A(10),1)="[144][172]  ":C$(A(28),1)=C$(A(10),1):REM DOG
610 C$(A(10),2)="[209] [206]":C$(A(28),2)=C$(A(10),2)
620 C$(A(10),3)="  [146] ":C$(A(28),3)=C$(A(10),3)
630 C$(A(10),4)="[170] [180]":C$(A(28),4)=C$(A(10),4)
640 C$(A(11),1)="[144][169] [223][146]":C$(A(29),1)=C$(A(11),1):REM BARN
650 C$(A(11),2)="[180] [170][146]":C$(A(29),2)=C$(A(11),2)
660 C$(A(11),3)="[188] [190][146]":C$(A(29),3)=C$(A(11),3)
670 C$(A(11),4)="[180][144] [170][146]":C$(A(29),4)=C$(A(11),4)
680 C$(A(12),1)="   ":C$(A(30),1)=C$(A(12),1):REM ANT
690 C$(A(12),2)="[144]V  ":C$(A(30),2)=C$(A(12),2)
700 C$(A(12),3)="[209]  ":C$(A(30),3)=C$(A(12),3)
710 C$(A(12),4)="[166][191][191]":C$(A(30),4)=C$(A(12),4)
720 C$(A(13),1)="   ":C$(A(31),1)=C$(A(13),1):REM BULL
730 C$(A(13),2)="[144][202][162][203]":C$(A(31),2)=C$(A(13),2)
740 C$(A(13),3)=" [187] [146]":C$(A(31),3)=C$(A(13),3)
750 C$(A(13),4)=" [182][182]":C$(A(31),4)=C$(A(13),4)
760 C$(A(14),1)="   ":C$(A(32),1)=C$(A(14),1):REM BEE
770 C$(A(14),2)="[144]V( ":C$(A(32),2)=C$(A(14),2)
780 C$(A(14),3)="[209][158] [144] ":C$(A(32),3)=C$(A(14),3)
790 C$(A(14),4)=" [173][173]":C$(A(32),4)=C$(A(14),4)
800 C$(A(15),1)="[149]  [162]":C$(A(33),1)=C$(A(15),1):REM BOOT
810 C$(A(15),2)="  [220][146]":C$(A(33),2)=C$(A(15),2)
820 C$(A(15),3)="[172][255] [146]":C$(A(33),3)=C$(A(15),3)
830 C$(A(15),4)="[188][162][162][146]":C$(A(33),4)=C$(A(15),4)
840 C$(A(16),1)="[149] [255] ":C$(A(34),1)=C$(A(16),1):REM COWBOY
850 C$(A(16),2)="[183]O[144][183]":C$(A(34),2)=C$(A(16),2)
860 C$(A(16),3)="( [146])":C$(A(34),3)=C$(A(16),3)
870 C$(A(16),4)="[144][182][183][181]":C$(A(34),4)=C$(A(16),4)
880 C$(A(17),1)=":  [146]":C$(A(35),1)=C$(A(17),1):REM FLAG
890 C$(A(17),2)=":  [146]":C$(A(35),2)=C$(A(17),2)
900 C$(A(17),3)="   [146]":C$(A(35),3)=C$(A(17),3)
910 C$(A(17),4)="[144][182][146]  ":C$(A(35),4)=C$(A(17),4)
920 C$(A(18),1)="   ":C$(A(36),1)=C$(A(18),1):REM TRACTOR
930 C$(A(18),2)="[172][188][146][215]":C$(A(36),2)=C$(A(18),2)
940 C$(A(18),3)="[161][162][187][146]":C$(A(36),3)=C$(A(18),3)
950 C$(A(18),4)="[144][215] O":C$(A(36),4)=C$(A(18),4)
960 PRINT"":FORX=1TO4
970 PRINT"   [215]   [215]   [215]   [215]   [215]   [215]   [215]   [215]   [215]":NEXT
980 W=1:V=1:TR=0:PC=1:PE=0:FORX=1TOK:SC(X)=0:NEXT
985 IFK>1THENPRINT"";P$(1);", YOU BEGIN"
990 IFK=1THENPRINT"TRIES ="TR"        MATCHES ="TL:POKE198,.
995 REM MAIN PLAY
1000 JY=PEEK(56320):FI=JYAND16:JY=15-(JYAND15):BL=PL:POKEPL,87:POKEPL+CO,1
1001 GETA$:IFA$="[145]"THENJY=1
1002 IFA$="Q"THEN80
1004 IFA$="[145]"THENJY=1
1005 IFA$=""THENJY=2
1006 IFA$=""THENJY=8
1007 IFA$="[157]"THENJY=4
1008 IFA$=CHR$(13)THENFI=.
1010 IFJY=1ORJY=5ORJY=9THENPL=PL-200:GOTO 1050
1020 IFJY=2ORJY=6ORJY=10THENPL=PL+200:GOTO1050
1030 IFJY>3ANDJY<7THENPL=PL-4
1040 IFJY>7THENPL=PL+4
1050 P$=P$(W):IFK=1THENP$="WELL DONE"
1060 IFPE=81THENPOKEBL,81:POKEBL+CO,PC
1070 PE=PEEK(PL):PC=PEEK(PL+CO)
1080 IFPE<>87ANDPE<>81THENPL=BL:PE=PEEK(PL):PC=PEEK(PL+CO)
1090 POKEPL,160:POKEPL+CO,Z(W):FORTT=1TO70:NEXTTT
1100 IFPE=81THEN1000
1110 IFFI<>16THEN1130
1120 GOTO1000
1130 FORX=1TO36:IFPL=D(X)THENZ=X:F(V)=PL:GOTO1150
1140 NEXT
1150 IFV=1THENS=Z:GOTO1180
1160 IFZ=STHEN1000
1170 PRINT"                                        ":T=Z:GOTO1190
1180 FORX=1TO4:PRINTL$(S);C$(S,X):NEXTX:V=2:GOTO1000
1190 FORX=1TO4:PRINTL$(T);C$(T,X):NEXTX:V=1:TR=TR+1
1200 IFC$(S,3)<>C$(T,3)THEN1280
1210 GOSUB1350:PRINT"";Z$(W);P$;", YOU GOT A MATCH!!!"
1220 GOSUB1680:SC(W)=SC(W)+1:TL=TL+1
1230 POKEF(1),81:POKEF(1)+CO,Z(W):POKEF(2),81
1235 POKEF(2)+CO,Z(W):PE=81:PC=Z(W)
1240 FORTT=1TO100:NEXTTT
1250 IFTL=18THEN1360
1260 IFK=1THEN1340
1270 GOSUB1350:PRINT"";Z$(W);"YOU GET TO GO AGAIN!":GOTO1000
1280 GOSUB1350:PRINT"";Z$(W);"SORRY, ";P$(W);"..."
1290 FORA=1TO500:NEXT
1300 PRINTL$(S);"[158][207][183][208][157][157][157][181][191][182][157][157][157][181][191][182][157][157][157][204][175][186]"
1310 PRINTL$(T);"[207][183][208][157][157][157][181][191][182][157][157][157][180][191][182][157][157][157][204][175][186]":IFK=1THEN1340
1320 W=W+1:IFW>KTHENW=1
1330 GOSUB1350:PRINT"";Z$(W);"IT'S ";P$(W);"'S TURN":GOTO1000
1340 GOSUB1350:PRINT"TRIES = "TR"        MATCHES ="TL:GOTO1000
1350 PRINT"                                        ":RETURN
1360 REM END OF GAME
1370 PRINT"[147]":PRINT:G=G+1:IFG>10THENG=1:H=1
1380 IFK=1THEN1550
1390 PRINT"THERE WAS A TOTAL OF 18 MATCHES:":PRINT
1400 FORX=1TOK:PRINT"     ";P$(X);" FOUND "SC(X)" OF THEM":NEXT
1410 H(G)=SC(1):FORX=2TOK:IFSC(X)>H(G)THENH(G)=SC(X)
1415 NEXT
1420 PRINT:PRINT"WINNERS...":PRINT
1430 FORX=1TOK:IFSC(X)<>H(G)THEN1470
1440 LE=18-LEN(P$(X)):PRINT"GAME"G"    ";P$(X);SPC(LE);H(G)
1450 H=H+1:W$(H)=P$(X):HS(H)=H(G):G(H)=G:LE(H)=LE
1460 FORT=1TO100:NEXTT
1470 NEXT
1480 PRINT:IFG=1THEN1510
1490 FORX=1TOH:PRINT"GAME"G(X)"[146]     ";W$(X);"[146]";SPC(LE(X));""HS(X)"[146]"
1500 NEXT
1510 PRINT:PRINT"   PRESS THE SPACE BAR TO PLAY AGAIN"
1512 PRINT"            PRESS 'Q' TO QUIT"
1515 GETJUNK$:IFJUNK$<>""THEN1515
1520 GETQ$:IFQ$=""THEN1520
1525 IFQ$="Q"THEN60000
1530 IFQ$=CHR$(32)THEN275
1540 END
1550 REM ONE PLAYER STATISTICS
1560 TR(G)=TR
1570 IFTR<26THENPRINT"WOW!!!":GOTO1600
1580 IFTR<36THENPRINT"CONGRATULATIONS!":GOTO1600
1590 PRINT"GOOD TRY!"
1600 PRINT"IT TOOK YOU"TR"TRIES TO FIND THE 18     MATCHES."
1610 IFG=1THEN1640
1620 PRINT:PRINT"YOUR STANDINGS...":PRINT
1630 FORX=1TOG:PRINT"GAME"X"[146]     "TR(X)"[146]":NEXT
1640 PRINT:PRINT"WOULD YOU LIKE TO TRY AGAIN? (Y/N)"
1650 GETJUNK$:IFJUNK$<>""THEN1650
1655 GETQ$:IFQ$=""THEN1655
1660 IFQ$="Y"THEN275
1670 GOTO60000
1680 REM MUSIC
1690 FORX=0TO23:POKESO+X,0:NEXT
1700 POKESO+2,255:POKESO+5,9:POKESO+24,15
1710 FORX=1TO8
1720 POKESO+1,N3(X):POKESO,N4(X)
1730 POKESO+4,65:FORT=1TODR(X):NEXTT
1740 POKESO+4,64
1750 NEXTX
1760 RETURN
1790 PRINT"[147]":POKE53281,0:POKE53280,0:CO=54272
1800 SO=CO:FORX=0TO23:POKESO+X,0:NEXT:POKESO+2,255:POKESO+5,9:POKESO+24,15
1810 FORX=1TO33:READN1(X),N2(X):NEXT
1820 FORX=1TO20:READS(X):T(X)=S(X):NEXT
1830 REM CARD DESIGNS 1-9
1840 B$(1,1)=" [206][181]":B$(1,2)="[206] [181]":REM SAILBOAT
1850 B$(1,3)="[183][183][181]":B$(1,4)="[223] [146][169]"
1860 B$(2,1)="   ":B$(2,2)=" ( ":REM BIRD
1870 B$(2,3)="< [146]=":B$(2,4)=" ( "
1880 B$(3,1)="   ":B$(3,2)=" [209] ":REM GIRL
1890 B$(3,3)="[206][166][205]":B$(3,4)="[167] [165]"
1900 B$(4,1)="[151][172][169][223][146]":B$(4,2)="[151][182]  [146]":REM SPACESHIP
1910 B$(4,3)="[151][182]  [146]":B$(4,4)="[151][182][146][194][194]"
1920 B$(5,1)="[217][212] ":B$(5,2)="()[172]":REM RABBIT
1930 B$(5,3)="[161] [146][161]":B$(5,4)="[184] [184]"
1940 B$(6,1)="[169],[223][146]":B$(6,2)=",,,[146]":REM TREE
1950 B$(6,3)="[223],[146][169]":B$(6,4)=" [149] [146] "
1960 B$(7,1)="   ":B$(7,2)="XOX":REM TIC-TAC-TOE
1970 B$(7,3)="OXO":B$(7,4)="XOX"
1980 B$(8,1)="   ":B$(8,2)="[149][187][181] [146]":REM TRUCK
1990 B$(8,3)="[180]  [146]":B$(8,4)="[209] [209]"
2000 B$(9,1)="A  [146]":B$(9,2)="[193]  [146]":REM ACE OF SPADES
2010 B$(9,3)="  [193][146]":B$(9,4)="  A[146]"
2020 S$(1)="":S$(2)=S$(1)+"[145]"
2030 S$(3)=S$(1)+"[145]":S$(4)=""
2040 S$(5)=S$(4)+"[145]"
2050 S$(6)=S$(4)+"":S$(7)=S$(6)+""
2060 S$(8)=S$(7)+"":S$(9)=S$(8)+"[145][145][145][145][145]"
2070 FORX=1TO9:FORY=1TO4
2080 PRINTS$(X);B$(X,Y)
2090 NEXTY,X
2110 POKE214,9:PRINT:PRINTTAB(15)"[155]M E M O R Y"
2120 PRINT:PRINTTAB(12)"C H A L L E N G E"
2130 POKE214,19:PRINT:PRINTTAB(18)"BY SHARON R. SIEGEL"
2170 TI$="000000"
2180 FORX=1TO20:POKET(X),81:POKET(X)+CO,11:NEXT
2190 I=2
2200 FORX=1TO4:IFI=2THENX=2
2210 FORY=1TO20:POKET(Y)+CO,0
2220 IFY<8THENT(Y)=T(Y)+1:GOTO2260
2230 IFY<11THENT(Y)=T(Y)+40:GOTO2260
2240 IFY<18THENT(Y)=T(Y)-1:GOTO2260
2250 T(Y)=T(Y)-40
2260 POKET(Y),81:POKET(Y)+CO,11:I=1
2270 IFX=4THENT(Y)=S(Y)
2280 J=J+1:IFN1(J)=0THENJ=1
2290 POKESO+1,N1(J):POKESO,N2(J):POKESO+4,65
2295 GETA$:IFA$<>""THENRETURN
2300 FORZ=1TO60:NEXTZ
2310 POKESO+4,64
2320 NEXTY,X
2330 IFTI$>"000009"THENRETURN
2340 GOTO2200
2510 DATA 27,148,24,146,27,148,30,245,32,204,32,204,24,146,24,146
2520 DATA 32,204,30,245,32,204,36,208,41,83,32,204,24,146,41,83
2530 DATA 43,200,32,204,27,148,43,200,41,83,32,204,24,146,24,146
2540 DATA 27,148,24,146,27,148,30,245,32,204,24,146,20,169,16,101,0,0
2550 DATA 1313,1316,1319,1322,1325,1328,1331,1334,1454,1574
2560 DATA 1694,1691,1688,1685,1682,1679,1676,1673,1553,1433
2570 DATA 32,204,200,24,146,100,27,148,200,24,146,100
2580 DATA 20,169,100,21,227,100,24,146,100,16,101,300
2590 DATA 1267,1271,1275,1279,1283,1287,1291,1295,1299
2600 DATA 1467,1471,1475,1479,1483,1487,1491,1495,1499
2610 DATA 1667,1671,1675,1679,1683,1687,1691,1695,1699
2620 DATA 1867,1871,1875,1879,1883,1887,1891,1895,1899
2630 DATA 0,79,1,99,2,80,40,101,41,127,42,103
2640 DATA 80,101,81,127,82,103,120,76,121,100,122,122
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
60500 C$="":POKE198,.:PRINT"[164]";
60510 FORA=1TOLE+1
60520 GETA$:IFA$=""THEN60520
60530 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60540 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:C$=LEFT$(C$,A-1):GOTO60520
60550 IF(A=LE+1)THEN60520
60560 IF(NU)AND((A$>="0")AND(A$<="9"))THEN60595
60570 IF(AL)AND((A$>=" "ANDA$<="/")OR(A$>=":"ANDA$<="Z"))THEN60595
60580 IF(AL)THENIF(A$>="[193]"ANDA$<="[218]")THEN60595
60590 GOTO60520
60595 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:C$=C$+A$:NEXT